home *** CD-ROM | disk | FTP | other *** search
/ Nebula 1 / Nebula One.iso / Utilities / Printer / djf_for_3.0 / djwraps.psw < prev    next >
Text File  |  1992-10-10  |  2KB  |  82 lines
  1. // Setup machportdevice
  2. // If you want to modify this to support something other than an
  3. // ImageWriter, you'll probably have to change at least the
  4. // halftone dictionary, the transfer function and the matrix.
  5. //
  6. //
  7. //Standard dither (75dpi) //<04C334F310CF40FF8344B3748F50BF8024E314D330EF20DFA3649354AF709F600CCB3CFB08C73//8F78B4CBB7C8748B7782CEB1CDB28E718D7AB6C9B5CA7689758> def
  8. //
  9. //Matrix nach Bayer
  10. //<008020A0088828A8C040E060C848E86830B0109038B81898F070D050F878D8580C8C2CAC04842//4A4CC4CEC6CC444E4643CBC1C9C34B41494FC7CDC5CF474D454> def
  11. //
  12. //Matrix nach Bayer um 20hex aufgehellt
  13. //<00600000 00680888 A020C040 A828C848 10900070 18980078 D050B030 D858B838 //006C0C8C 00640484 AC2CCC4C A424C444 1C9C007C 14940074 DC5CBC3C D454B434> def
  14. //
  15. //Matrix nach Haberaecker1
  16. //<1E5A8205 6EEBD246 96AF5A28 143C5A0A> def
  17. //
  18. //Matrix nach Haberaecker2
  19. //<00E030D0 B0508060 20C010F0 9070A040> def
  20. //
  21. //Matrix nach Jarvis
  22. //<008020A0 C040E060 30B01090 F070D050> def
  23. //
  24. //
  25. // Spotfunctions
  26. //
  27. // ** DOT (einfach)
  28. //{ 180 mul cos exch 180 mul cos add 2 div }
  29. //
  30. // ** DOT
  31. //{abs exch abs 2 copy add 1 gt {1 sub dup mul exch 1 sub dup mul add 1 
  32. //sub }{dup mul exch dup mul add 1 exch sub }ifelse }
  33. //
  34. // ** ELLIPSE 
  35. //{ dup 5 mul 8 div mul exch dup mul exch add sqrt 1 exch sub }
  36. //
  37. // ** LINE
  38. //{ pop }
  39. //
  40. // OneIsBlack
  41.  
  42. defineps minit1()
  43.  
  44. /DJF 7 dict begin
  45.   /jobTag 0 def
  46.   /samplesPerPixel 1 def
  47.   /bitsPerSample 1 def
  48.   /colorSpace NX_OneIsBlackColorSpace def
  49.   /isPlanar false def
  50.   /defaultHalftone 4 dict begin
  51.     /HalftoneType 1 def
  52.     /Frequency 75.0 def
  53.     /Angle 45.0 def
  54.     /SpotFunction {abs exch abs 2 copy add 1 gt {1 sub dup mul exch 1 sub
  55.     dup mul add 1 sub} {dup mul exch dup mul add 1 exch sub} ifelse} def
  56.   currentdict end def
  57.   /initialTransfer {dup 0 ne {0.835 mul 0.165 add dup 1 gt {pop 1} if }
  58.   if } def
  59. currentdict end readonly def
  60.  
  61. endps
  62.  
  63.  
  64. defineps minit2(int res, w, h; char *portname)
  65.  
  66. w h     % image size
  67. [ 0 0 w h 
  68. ]            % imageable bounding box
  69. [ res 72 div
  70.   0
  71.   0
  72.   res -72 div
  73.   0
  74.   h
  75. ]            % dev transform
  76. () (portname)
  77.     DJF machportdevice
  78. initgraphics
  79.  
  80. endps
  81.  
  82.